i:Id, R:Realizer.
Rplus?(R)  Rnone?(R)  R-ds(R;i) = if R-loc(R) = i Rds(R) else  fi  x:Id fp Type 

latex

Definitions

Id, t  T, Type, x.A(x), x. t(x), x:A. B(x), , s = t, Prop, b, A, b, , a = b, source(l), x : v, x:AB(x), P  Q, x:AB(x), P & Q, P  Q, Unit, left+right, es realizer ind Rrframe compseq tag def, Rds(R), R-loc(R), R-ds(R;i), es realizer ind Rbframe compseq tag def, es realizer ind Raframe compseq tag def, es realizer ind Rpre compseq tag def, es realizer ind Rsends compseq tag def, es realizer ind Reffect compseq tag def, es realizer ind Rsframe compseq tag def, es realizer ind Rframe compseq tag def, es realizer ind Rinit compseq tag def, False, a:A fp B(a), True, Rnone?(x1), Rplus?(x1), es realizer ind Rplus compseq tag def, es realizer ind Rnone compseq tag def, Knd, type List, IdLnk, State(ds), DeclaredType(ds;x), rec(x.A(x)), Realizer

Lemmas

es realizer wf, unit wf, decl-type wf, fpf wf, decl-state wf, IdLnk wf, Knd wf, true wf, false wf, eqtt to assert, eqff to assert, iff transitivity, assert of bnot, not functionality wrt iff, assert-eq-id, fpf-single wf, lsrc wf, eq id wf, bool wf, bnot wf, not wf, assert wf, fpf-empty wf, Id wf